# Usage: fiveman.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile fiveman.ps 
	mapFile fiveman.map
	title "diplomacy map (five-man variant)"
	images {
		chart {fiveman.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18 Impassable} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25 maxx 650}} LandBrown {}}
		coordinates {fiveman.base.ps {scan {} {provinces INFO supplies TLA powers COUNTRY}} {} {}}
	}
	locations {
		supplies {{coordinates supplies} Supplies s {Blue {} S}}
		coasts {{coordinates provinces} Territories c {Red DarkGreen AF} {
			NAF TUN GRE ALB TRI VEN APU NAP ROM TUS PIE MAR
			POR GAS BRE PIC BEL	HOL KIE DEN BER PRU LVN FIN
			SWE NWY EDI YOR LON WAL LVP CLY
		}}
		lands {{coordinates provinces} Territories l {Green DarkGreen A} {
			SER BUD VIE TYR BUR PAR RUH MUN BOH GAL POL SIL
		}}
		waters {{coordinates provinces} Territories w {White White F} {
			BAR NWG NTH SKA BAL BOT HEL ENG IRI NAO MAO WES
			LYO TYS ION ADR EAS AEG BLA
		}}
		greens {{coordinates provinces} Territories g {DarkGreen DarkGreen A} {
			BUL SPA STP
		}}
		beaches {{coordinates provinces} Territories b {Yellow {} F} {
			BUL/EC BUL/SC SPA/SC SPA/NC STP/SC STP/NC
		}}
		mountains {{coordinates provinces} Territories m {Black {} A} {
			SWI
		}}
	}
	powers {
		Austria {}
		England {}
		France {}
		Germany {}
		Italy {}
	}
}
